'Repartizarea candidatilor pe numarul de locuri - varianta cu identificare 
explicita 


Sub repartizareSegmente() 
Dim Matrice(10, 1) 
Fori = 0 To 10 
Matrice(i, 0) = "Student" & i 
Next 
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LocuriFaraTaxa = 1 
LocuriCuTaxa = 3 


LocurilD = 3 
faraTaxa = 1 
cutaxa = 1 
id=1 


ultimaMedieFaraTaxa = 0 
ultimaMedieCuTaxa = 0 
ultimaMedield = 0 
For i = 0 To 10 
If faraTaxa <= LocuriFaraTaxa Or Matrice(i, 1) = ultimaMedieFaraTaxa Then 
Debug.Print (Matrice(i, 0) & "faraTaxa") 
faraTaxa = faraTaxa + 1 
ultimaMedieFaraTaxa = Matrice(i, 1) 


Else 

If cutaxa <= LocuriCuTaxa Or Matrice(i, 1) = ultimaMedieCuTaxa Then 
Debug.Print (Matrice(i, 0) & " cuTaxa") 
cutaxa = cutaxa 1 
ultimaMedieCuTaxa = Matrice(i, 1) 

Else 
If id <= LocurilD Or Matrice(i, 1) = ultimaMedield Then 

Debug.Print (Matrice(i, 0) & " id") 


id=id+1 
ultimaMedield = Matrice(i, 1) 

Else 
Debug.Print (Matrice(i, 0) & " respins") 

End If 

End If 
End If 
Next 


End Sub 


'Repartizarea candidatilor pe numarul de locuri 
'- varianta generalizata in care stocam numarul de locuri si semnificatia fiecarui 
segment intr-o matrice: Segmente 


'Prima varianta generalizata: 
Sub repartizareSegmente4() 


Dim Matrice(10, 1) 
Fori 20 To 10 
Matrice(i, 0) = "Student" & i 

Next 
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Dim Segmente(2, 1) 


Segmente(0, 0) = "farataxa" 
Segmente(0, 1) = 2 


Segmente(1, 0) = "cutaxa" 
Segmente(1, 1) = 2 


Segmente(2, 0) = "id" 
Segmente(2, 1) = 1 


indexLocuri = 0 

numarLocuri = Segmente(0, 1) 

textDeAfisat = Segmente(0, 0) 

contor = 1 

ultimaMedie = 0 

For i = LBound(Matrice, 1) To UBound(Matrice, 1) 


If contor <= numarLocuri Or ultimaMedie = Matrice(i, 1) Then 
contor = contor + 1 
ultimaMedie = Matrice(i, 1) 
Else 
indexLocuri = indexLocuri + 1 
If (indexLocuri <= UBound(Segmente)) Then 
numarLocuri = Segmente(indexLocuri, 1) 
textDeAfisat = Segmente(indexLocuri, 0) 
contor =2 'elementul curent trebuie si el contorizat 
ultimaMedie = Matrice(i, 1) 
Else 
textDeAfisat = "respins" 
End If 
End If 
Debug.Print (Matrice(i, 0) & "-->" & textDeAfisat) 


Next 


End Sub 


' A doua varianta generalizata 
Sub repartizareSegmente3() 


Dim Matrice(10, 1) 
Fori = 0 To 10 
Matrice(i, 0) = "Student" & i 

Next 
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Dim Segmente(2, 1) 


Segmente(0, 0) = "farataxa" 
Segmente(0, 1) = 2 


Segmente(1, 0) = "cutaxa" 
Segmente(1, 1) = 2 


Segmente(2, 0) = "id" 
Segmente(2, 1) = 20 


studentCurent = LBound(Matrice, 1) 
ultimaMedie = 0 
For i = LBound(Segmente) To UBound(Segmente) 
contor = 1 
Do While contor <= Segmente(i, 1) Or Matrice(studentCurent, 1) = ultimaMedie 
contor = contor + 1 
Debug.Print (Matrice(studentCurent, 0) & "-->" & Segmente(i, 0)) 
ultimaMedie = Matrice(studentCurent, 1) 
studentCurent = studentCurent + 1 


If studentCurent > UBound(Matrice, 1) Then 
Exit For ' iese fortat din for pt ca nu mai sunt studenti (s-a depasit indexul 
maxim) 
End If 


Loop 
Next 
For i = studentCurent To UBound(Matrice, 1) 


Debug.Print (Matrice(i, 0) & "--> respins") 
Next 


End Sub 


